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FROM THE EDITOR 

This issuer as promised, is heavily devoted to comruter music end 
srarhics. First, thousghy let us roint with pride to our “new look" 
Flease observe the right Jjustified text. No more slorry rassed risht 
margins. We’1l tell you later how it was donery and tell vou how sour 
too» cam make a hish-class word rrocessor out of your SYM-1. 


As for srarhicss we will present examples of both oscilloscore and 
KTM~-2/80 Programs. And for the musics we will concentrate mainls on the 
D/A (DAC or Disital-to Analogs Converter) arrroachy although other 
methods will be described, We develored a number of music and srarhics 
Frograms for our KIM several years ago. These were hand assembled» 
Patched for the SYMy relocated: modified to include TSTAT so we would 
not have to hit RST to get out of an infinite loory etc. There is no 
source code for them. We therefore will rublish them in disassembled 
formy and refer you to the original articles for the comments. 


One of our graduate students develored some score drarhics for the KIM 
as part of a graduate rroject. These included a FONG gamer a Kounecins 
Ball simulations a Raster Grarhic Diselay,s and a Vector Disrelay which 
showed five lines of five alrhanumerics (sort of a crude tyrewriter), 
All but PONG» which derends on the KIM keypad logic, have been 
"transcribed" for the SYM. We are now fixins ure 28 simple-minded 
two-axis laser deflection system involving mirrors and sreakers to 
Froduce wall sized laser graphics, Unfortunately, rrogress is slow, 


Harry reading, hardware rut-tosethering,s rrogrammingy and theny watching 
and hearing your SYM rerform! SYM-FHYSIS 3-1 


SYM WORD FROCESSOR 

This issue was “set" with an early version of Carl Moser’s mew SYM Word 
Frocessor (SWF). We were sent a rreliminary version for testing and 
debuasing. We rereorted the minor buss back to Carly and sussested some 
new features to be added, The imrroved versions SWP-1, is now available 
on cassette. No printed manual is vrrovideds buts with the fully 
commented source code and a surprlied examele 
of a text file showing its usey the cassette 
material exrlains itself. The cassette con~ 
tains three cories each of the complete 
source codey 2 version strirred of all com- 
ments,y and a samele text file. The "“strir~ 
red" source code will rermit a auick as~ 
sembly (without the meed for .-CT). SWF-1 
does not split wordsr that isy it will not 
hyrhenate for youre In wide columns this is 
not a maJor rroblem. In marrow columns like 
this one, you may want to do as we have 
done. If the wide sraces between words ere 
objectionable, a few iterations of a manual 
hyrhenization rrocess will fix things ur, as 
we have done here-e As is our established 
rolicy, we will fully surreort this Froduct 
with imrrovements, corrections, suggestions 
for better user etc. SWF-1 is actually eas- 
ier to use for text editing than RAE-1 
aloners since there is mo meed to try to 
equalize the lines. SWF-1 ruts all of the 
lines into one lons string. After generating the texts additional lines 
are inserted to indicate raradrarh endings: margin changes, etc. 
Wouldn’t you like to be the first kid om your block to have a really 
finer “up-to-date"» truly moderns word processor? Send for yoursy TODAY! 
See back pase for orderings information. 


THE KTM-2/80 

When I first saw the list rrice of the KTM~-2/80» I thought it was a lot 
of money to rut out for a keyboard and a handful of chirs,. That was 
before I saw what came for the money. Nowr I think that it is the most 
cost effective terminal available, and that the rrice is unbelievably 
low for what you get. The -80 has TWO microrrocessorss a 6502 and @ 
6507» two VIA’sy 2 K of RAM and 12 K of ROM! It is @ truly rrofessional 
stand-alone terminal (carabable of 9600 Baud) and I use it om our local 
timeshare system (at only 300 Bauds however), The srarhics 
carabilitiesy which are actually 160 by 48 (not 80 by 24)» are an added 
bonus. Surrelus monitors are available for around $50» and a cabinet 
maker can make @ case for under $50, Where else can you get a terminal 
with 211 of the KTM-2/80 features for $5507 


I am actually besinning to think of the SYM-1 as an accessory to the 
KTM-2/80» converting it to a fully intelligent terminals rather than the 
other way around, I have even susdested to Synertek Systems Corroration 
that they consider an enhanced KTM board with sockets for MON: RAE: and 
BAS, and 8K of RAM (siving ur the hex rad and the 7-sesment disrlays),. 
The world’s rFrenultimate Single Board Computer! Add 2 single exransion 
board with rrom burner: disk controllers and 24 K of RAMy andy with all 
of the fine SYM software becomin# availabley Synertek would have @ 
really rowerfuly low-costys surer development system. Judging by the 
letters we receiver many of our readers are well on their way to 
assembling such dream systems: on their owns but not Packaged as "neatly" 
as could be. 
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Many have written and called about ursradins their 40 column KTM~2 to 
the 80 column carability. Some bad mews and some sood news. If vou 
have the early model KTM-2. (rrior to SN. 0733) it cannot be done. For 
the newer modely Synertek. will release a conversion kits eaveileble 
through the Users’ Grour. Wiselyy Syunertek is waiting until a detailed 
technical manual describing the conversion Frocedure is available, The 
conversion manual is being prerared by an experienced SYM-1l usery Bob 
Myers, 109 Fire Laney North Care Maury NJ 08204* (609) S22-7781, «x 250, 
Contact Bob directly for availability informations horefully we can 
announce the availability of the kits and manual in our next issue, 


CASSETTE RECORDER TIPS 

Our long lasting rroblem with unreliable cassette readback has been 
solved» and in a very simple manner indeed! We can mow read almost any 
tare sent to us at any setting of the volume control above a minimum 
threshold. We replaced the 0.22 ufd caracitor at C16 (now on all new 
productions and sent with the MON 1.1 rerlacement kit) with the original 
0.01 value. The lower value blocks out low freauency hums flutters and 
wow. We have made the change on eisht of our local SYM-1s and 
recommended it to othersys who have called concerning cassette Problemsy 
then called back to rerort that the fix also worked on their systems. 


The SYM-1 cassette subsystem orerates at 1420 Baud, That can easily be 
doubled» even with inexrensive recorders, by rerlacinga the values of 
TAPETi, TAPET2» and HSBIIRY with one-half their default values. The 
sreed can also be trirpleds or quadrupled, but at 4X (5.7 KBaud) the hish 
frequency resronse of the recorder itself becomes the limiting factor. 
We first became aware of this carability of SYM wheny on the same dayr 
we received a "“unreadable* tare (which sounded rather high-pitched) from 
one subscribers and a letter from another explaining how to increase the 
baud rate. We found that the unreadable tare had actually been sent 
(unintentionally) at 2840 Baud: but was easily readable with the Frrorer 
parameter values. Try the higher rates# they do save time. 


A number of readers who have had problems with cassette read reliability 
have sent in their own ‘fixes", some of them reauirins "heroic" 
measures. If the fix described here does not work for yours you misht 
want to try the one rrorosed by Jay Sinnetty elsewhere in this issue, 
Don’t be satisfied with less than nearly 100% reliability from the 
cassette interface. It is carable of very high reliability, Since we 
added our fix every cassette read failure was definitely linked to 2 
tape defect at a srecific location on the tare. Once you are sure thet 
a particular cassette is free of ‘slitches* you can exrect 100% 
readback. 


One final note om readings commercially available KIM-1 format tares 
which include either the tor of pase zeror the tor of rage oner or the 
KIM-1 System RAM at $1780+ (if you have no RAM there yourself): Use the 
ID = $FF option to read in the data elsewhere, asy for example, with -Li 
FF 0200, Incidentally, MON 1.1 allows you to srecify the value of 
KMBDRY at $0631. We wonders and will probably exreriment soons whether 
changing the default value to the rrorer choice will rermit readings 


My colleasuer Dr. Gary Sittons Frofessor of Computer Sciencer Califor- 
nia State Universityrs Chicor will be in residence at the University of 
Canterbury, Christchurchr New Zealand, May 24-July 15. His areas of 
interest include Date Kase Management and Orerating Systems, He would 
enJoy meeting with any or all of you, 
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HARDWARE MODIFICATION FOR BETTER TAPE RELIABILITY 
Jay C. Sinnett 


U.S. Environmental Protection Agency 
Environmental Research Laboratory 
South Ferry Road 
Narragansett, RI 02882 

The first cassette recorder I tried with my SYM for data recording 
worked extremely well. The volume and tone control settings were entirely 
noncritical, and I never failed to read a tape correctly. However, when I 
got RAE-1, I purchased two new recorders of a different make. These 
recorders proved to be extremely sensitive to slight changes in volume and 
tone controls. Even using different brands of tape was impossible without 
resetting the controls. Fortunately, I was able to use an oscilloscope and 
the Synertek tape diagnostic programs to completely solve the problem with a 
hardware modification. If you have had this kind of problem, you may find 
this suggested hardware modification useful. If your tape recorder is 
reliable and easy to use, don't make any changes! 

The designations left, right, etc. refer to the board when oriented so 
that the printing on it reads normally. 


1. Carefully unsolder the right-hand ends of both CR28 and CR29. 

2. Bend CR29 toward the top edge of the board, so that the body of 
the diode extends by the left-hand end of CR28 and R93. Bend 
the free lead of CR29 so it touches or wraps around the 
left-hand lead of R94 and solder it there (ground). 

3. Bend CR28 in the same direction so that it lies above CR29. 
Solder its free lead to the left-hand end of R95 (+5V). 


Before I made this modification, I had one extremely narrow range of 
workable volume settings just above the threshold of detection of Sync. 
After this change, my volume control could be set anywhere above threshold 
without problems. 

The reason this works is that when an audio cassette player plays back a 
digital waveform, the amplitude of positive-going and negative-going peaks 
are not always equal or even constant, but change according to the timing. 
When the signal input to an unmodified SYM exceeds 1.4V peak-to-peak, the 
diodes CR28 and CR29 conduct, causing C16 to build up a charge on each 
peak. This charge in turn modifies the zero crossing time, destroying the 
integrity of the data. The new placement of the diodes allows a signal 
swing of 6.4V peak-to-peak before the diodes conduct to protect the LM311 
comparator. 

For the hardware purist or person who has not yet installed his hardware 
modification which came with the Monitor update, I also recommend adding a 
bit of hysteresis to the new circuit to avoid noise on low-level signals. 
This may not be necessary in many cases. 


1. Change R94 and R95 to 1002 resistors (supplied in the Synertek 
kit). 

2. Remove R87 and R126. 

3. Change R96 to 100k2 (you supply). 

4, Install a 2.2k resistor from the right-hand end of R94 to the 
hole where the right-hand end of R126 was (you supply). 

5. Install the R97 (1k) and C16 (0.22uf) as instructed in the new 
monitor kit. 


THE NEXT ISSUE 

comparision of 211 known (to me) ways of exranding SYM~1,. 

discussion of "chear* video terminalsy and inexrensive printers. 
descrirtion of Frank Winters’ TOPS (Tare OPerating System)» with nearly 
all the convenience of 2 DOS, at much slower speedy but much lower cost. 


xAnds of courses more Programs! 
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RAE NOTES 

RAE NOTES No-+ 2 has been mailed to subscribers. 
No. 2 contains 2a full description of the disk 
vectors and flags built into RAE-1» and illustrates 
their use with the full source code listing of Tom 
Gettys’ RAE/FODS Linking Patch. No. 2 listed six 
absolutely safe rase zero locations comrletely 
untouched by BAS» RAE, FOLDS» or MON. Mailed with 
No. 2 was an annotated cory of Technical Note 
LO1SSC, February 1980 “Adding Motor Control for @ 
Second Cassette Recorder to SYM-1". 


Also mailed with No. 2 was a USER FATCH FOR RAE-1 
submitted by Jean Curry a rortion of which is beins 
Published in this issue. As more of RAE~1 users 
begin to disassemble RAE’s obJect code and rrobe 
into its inner workings, we can expect more 
enhancements to be rrovided. One of our readers has 
Fromised to Frovide 3 ratch to surprress the // at 
the end of .PR. Note that SWP-1l» Moser’s SYM Word 
Processors already does thisrs and the form-feed 
oreration in SWP-1 will force the endings ">" to the 
tor of the mext rage. No. 3 will include the long 
Promised rade zero/rage one memory marsy and will 
describe the use of the Printer Control Vector built 
into the »HArdcory Set command, 


Please make the following correction to the RAE-1 
Reference Data Card included with No. 1: In the 
section “Recovers from Accidental Clear" replace 
PR 9999 with PR /. 


Jean Me Cyrs 29 Greenboro Crescenty. Ottaway Ontarios 
Canaday K1iT IWS» submitted 28 very mice Frrogram 
called USER PATCH FOR RAE-1, It rFrovides a better 
interface to a TTY, and has other nice features, 
The completes fully commented, version is being sent 
to RAE NOTES subscribers. Published here is an ab- 
breviated version of that rortion of his Program 
which rermits the rrinting of an ealrhabeticallys 
sorted Label File, He has not yet found a way to 
suprress the rrinting of the unsorted file. Can 
anyone hele him? It might also be mice to rrovide 
another ratch to rermit the erinting of 2 mumeri-~ 
cally sorted Label File, 

SASSEMBLE LIST 


0010 sSORTING FATCH FOR RAE-1 

0020 sPORTION OF USER FATCH FOR RAE-1 
0025 35 

0030 sJEAN Me. CYR 

0040 $29 GREENRORO CRESCENT 

0050 sOTTAWA»sONTARIO 

0060 sCANADA KIT 1W5 

0070 + 

OO71 sEditor’s Note! To save srace 
0072 sin the listingy Printings of 
0073 the Macro Exransions was sur- 
0074 srressed. These can be found in 
0075 ithe obJect code verification 
0076 ibelow 


LEAL 


1F88- 
LFBA- 
LF8C~ 
LF8E- 
LF8F- 
LF94- 
1F94- 


4C 


03 BO 


02 


iF 


0077 
0085 
0200 
0210 
0325 
0330 
0350 
0460 
0465 
0470 
0475 
0480 
0485 
0490 
0495 
0500 
OS05 
0510 
OS15 
0520 
0525 
0530 
OS35 
0540 
OS4S5 
0550 
OS5S 
0560 
0565 
0570 
0575 
0580 
0585 
0590 
OS95 
0600 
0605 
0610 
0615 
0620 
0625 
0635 
0630 
0640 
0645 
0650 
0655 
0660 
0665 
0670 
0490 
0695 
0700 
0710 
0950 
0935 
0960 
0965 
0970 
0975 
0980 
0985 
0790 
0995 
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, 
LBLSIZ 
LBL 
BUF 
SCRN 
SCRC 
DUMMY 

1LIMW 


!!'!STORE 


' LOAD 


USEREXIT 
SORT 
SORTLBLS 
NEXTLBL 


NEXTCHAR 


COMPSTRING 


DE 
DE 
DE 
DE 
DE 
DE 
Mo 
LOAL 
STOR 
LOAD 
STOR 
+ME 


MD 
LIY 
LDA 
STA 
BMI 
INY 
BNE 
CPY 
RCC 
ME 


»MD 
SET 
IFM 
SET 
*OKK 
IFP 
STA 
KK 
IFP 
STA 
KK 
+ME 


MO 
SET 
IFM 
11K 
SET 
IFP 
LDA 
KK 
IFP 
LIA 
KKK 
ME 
+EC 
+BA 
0S 
JMP 
DE 
MW 
MW 
LDY 
LDA 
BMI 
INY 
BNE 
JSR 
LDY 


$500 

$0104 

$00C8 

$FE 

$FC 

to) 

(FROM TO) 
(FROM) 

E (TO) 
(FROM+1) 

E (TO+t1) 


(FROM TO) 
#0 
(FROM) vY 
(TO) rY 
ooo MTS 


(ADR) 
DUMMY = ALR 
DUMMY 
DUMMY = $100 


$F F-DUMMY 
XxADR 


DUMMY-$100 
ADR 


(ADR) 
DUMMY =ADR 
DUMMY 


DUMMY=$100 
$FF-DUMMY 
XxADIR 


DUMMY-$100 
AIR 


$1F71 


$BOO3 
$1F74 

LBL SCRN) 
SCRN SCRC) 
#2 
(SCRC)rY 
COMPSTRING 


NEXTCHAR 
ADRNEXT 
#2 


LIA 
BEQ 
LIA 
EOR 
BMI 
LOA 
CMP 
BCC 
ENE 
INY 
BNE 
LOA 
BPL 
ANID 
CMP 
BEQ 
BCC 
BCS 
ORA 
CMF 
BEQ 
BNE 


(SCRN) 
USEREXIT 
(SCRC) vY¥ 
(SCRN) vY 
EOS 

(SCRN) + 
(SCRC) + 
XCHANGE 
NEXTLBL 


COMFPCHAR 
(SCRN) 1Y 
EOSC 
#$7F 
(SCRC) + 
XCHANGE 
XCHANGE 
NEXTLBL 
#$80 
(SCRC)+Y 
NEXTLBL. 
HIGHLOW 


MT (SCRC BUF) 
MT (SCRN SCRC) 


JSR 
MT 
BCS 


TYA 
SEC 
Alc 
STA 
LOA 
ALC 
STA 
RTS 


+EN 


ADRNEXT 


(BUF SCRN) 


SORTLELS 


xSCRC 
xSCRN 
xSCRC+1 
#0 
xXSCRN+1 


Label File is listed» enter 
Start re-entry 


1F96~ B1 FE 1000 
1F98- FO D7 1005 
1F9A- Bi FC 1010 COMPCHAR 
LFSC= Si FE 1015 
1F9E- 30 08 1020 
1FAO- Bl FE 1025 
1FA2- DL FC 1030 
1FA4- 90 1B 1035 
LFAé~- DO [6 1040 
1FA8- C8 1045 
1FA9- [DO EF 1050 
LFAR- Bl FE 1055 EOS 
LFAL- 10 OA 1060 
LEAP = 27 7E 1065 
JERI Bi) FC 1070 
LFR3- FO OC 1075 
IFBS- 90 OA 1080 HIGHLOW 
1FB7- BO CS 1085 
1FB9- 09 80 1090 EOQSC 
1FBR- Di FC 1095 
1FBD- FO BF 1100 
1FRF- D0 F4 1105 
1110 XCHANGE 
1115 
4FDF- 20 F3 1F 1120 
1125 
1FF1i- BO 81 1130 
1135 3 
1FF3- 78 1140 ADRNEXT 
1FF4- 38 1145 
1FFS- 65 FC 1150 
AGE Z— 35 FE 1155 
1FF9- AS FD 1160 
1FFR- 69 00 1165 
1FFD- 85 FF 1170 
LEFE— 60 1175 
1180 
1185 
After the unsorted 
2RUn SORT? theny after the Warm 
message and Fromrtys enter 


>LAbels, to set a 


listing of the alphabetically sorted Label File. 


1F70_ 


1F78 
1F80 
1F88 
1F90 
1F98 
1FAO 
1FA8 
1FBO 
1FB8 
1FCO 
1FC8 
1FDO 
1FD8 
1FEO 
1FE8 
1FFO 
1FFS 
5316 


ol 
All 
85 
C8 
Ri 


85736 
FEr16 
FOyCS 
LO» TF 
FE» SE 
OBs5S9 
16726 
2999F 
BO, 31 
DO,»CKk 
30995 
F972 
03,781 
2057K 
FE35 
90149 
85929 
60716 
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SOME GAMES (ANDI) MORE) FOR THE SYM-1 WITH KTM-2/80 


Many readers have asked» ‘Game rrosgramsy Flease?"s nearly as many have 
saidy “No samesy thank soul", I think we can Flease both srours of 
readers with the Frrograms we shall describe, becauser while I incline 


towards the “no game" srours myselfys I did find these Farticular games 
fascinating. The story besins with my receiving 3 Frogram listings in 
BASIC, from Jack Gieryics for Fublication. Not wishing to Publish 2 


rrosgram without testing it firstry even though I know the euthor well 
from having read mans of his Frublished articles, I asked Jack if he 
would mind sendins me 28 cassette dumrys im rlace of the listing, The 


thousht of srending many hours keying in and debugsins a BASIC listings 
is not my idea of a great time. Welly Jack sent six rrogram rackases on 
cassette! three sgamesr two utilities, and ~a grarhics demonstration 
epackase (GIIP-1). GDIP-1 is rublished here. 


All six reauire 4 K of RAM and a KTM-2/80 (nor the Programs will not 
convert easily to the 40 column KTM-2). Jack’s skill with 4rarhics is 
impressive. Jack calls his rroduct line JACK BUILT FROGRAMS. No. 1 is 
@ one-rerson samery DEPTH CHARGE: which reauires 2a three dimensional 
searchy and presents 2a simulated sonar-tyre display. Nos. 2 and 3 are 
‘“two-rerson dames. Tom Gettys would rather relay against the computers 


but I rather like the ides of having a human companion around to shere 
the pleasures of the computer withs No. 2 is the well-known OTHELLO» 
which I had never flayed beforey but learned auickly enough. No. 3 is 


an adartion of the old TV Game Show CONCENTRATION, asain well im- 


Plemented by Jack. 


Mu favorite, because it wes not 32 game reauirins Personal competitions 
but Frrovides entertainment: was No. 4% the Grarhics Demonstration 
Fackaseys which also includes an example of Comruter Assisted Instruction 
(CAI). It asks you to enter your mame, then asks you to make 2 
selection from a “menu" (see listing). ‘The Sauare Story" is a teaching 
rrosgrame “Football Field" is 2 drawing of 2a football field. The others 
are dyunsmic sraphic shows. What Martin Gardner has said about music 
(see elsewhere in this issue) arrlies eaually well to art. To Fare- 
ehrase himr Art (with a caritel A) and musicy to be interestings must 
consist of the Prorer mixture of the "exrected" and the ‘“unexrected", 
The Furely random (incoherent) rFratterns are dulls as are the totally 
regular (coherent) ones. “Ink Srots" illustrate the prrincirle well, 
The patterns ere reminiscent of the Rorschach (Ink Srot) Personality 
Testy excert that the bileteral symmetry is missing (must ask Jack to 
include that feature in an urdated version). 


No. Sy PLOT» is 28@ multirle mathematical graph drawings utility, and 
No. 6» BARy is @ very versatile Bar Chart (vertical bars) drawing 
utility. If you have the KTM-2/80 you will enJoy these rrogramsy if you 
have the money to srend on “luxury" itemsr like the KTM-2/80» you Frob- 
ably don’t have the time to key in lons rrograms. Fortunately, all of 
the JACK BUILT PROGRAMS are available on cassette. See the back rage of 
this issue for ordering information, A prrelinary version of the 
GRAPHICS DEMONSTRATION FACKAGE is Printed here for your information. It 
is definitely convertible to 40 columns. See what I meant about keying 
in a longs SASIC Frosgram? 


E=273S=1243LIM=2000: TH=32:G0TO100 
PRINTCHRS$(E)+*="s RETURN 

PRINTCHR$(E)+"R* RETURN 

PRINTCHR$(E)+"°G* SRETURN 
PRINTCHR$(E)+CHR$(114) 5 SRETURN 
PRINTCHR$(E)+CHR$( 103) 5 $RETURN 
GOSUB2$PRINTCHR$(Y+TH) +CHR$(X+TH) +CHRS(S) RETURN 
FORY=YSTOYS+YL?GOSUB7! NEXT? RETURN 
FORX=XSTOXS+XL’ GOSUB7 3 NEXT: RETURN 


OODNAUM SHANE 
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PRINTCHR$(E) +"H*+CHRS(E) +" J" 3 FORA=1TOS: NEXT? RETURN 
X=INT(77XRND(1)) 2 Y=INT(23XRND(1)) }GOSUB7; RETURN 
GOSUBS?GOSUB6!S=124:RETURN 

GOSUB10! GOSUB3: GOSUB4$ RETURN 

YL=INTC2U*XRNDC 1) SIFYL< STHENL4 

RETURN 

GOSUB3?GOSUR4! GOSUBR20! GOSUR25$ RETURN 

FORA=1TOSOOO3 NEXT? RETURN 

FORA=1T02000; NEXT? RETURN 

S=463+INT(64XRND(1)) SRETURN 

XS=INT((79-XL) ¥RNDC1)) 2 YS=INT((21~-YL) *RNDIC1) ) SRETURN 
X=X$}GOSUBB: Y=YSiGOSUB?? RETURN 
X=XS}GOSUR8: Y=YS+YL 3 GOSUB9? RETURN 
Y=YS$?GOSUB9! X=XS+XL.: GOSUB8s RETURN 
Y=YS+YL$GOSUB? : X=XS+XL. $ GOSUB8 i RETURN 

GOSUB22 3 GOSUB23:GOSUBS $ GOSUB4: RETURN 
Y=YS+YL?FORX=XSTOXS+XL ’ GOSUB7 Y=Y-13NEXT? RETURN 
Y=YS$FORX=XSTOXS+XL !GOSUB7! Y=Y+1!NEXT$ RETURN 

PRINTCHR$(Y+TH) +CHR$(X+TH) AS RETURN 
GOSUBLOSGOSUB2¢FRINT"(XHI. I AM YOUR COMPUTER. I WOULD LIKE TO * 
GOSUB2$PRINT")XKNOW WHO YOU ARE. FLEASE TYPE YOUR NAME" 
GOSUB22PRINT"*XKAND THEN HIT THE KEY MARKED RETURN, 
GOSUB23FPRINT*-4"°5 INPUT" "+N$3GOSUB1O 

GOSUB2:PRINT*!&HERE IS A LIST OF THINGS I CAN [10 FOR YOU “sN$s"," 
GOSUB2?PRINT*#&TYPE THE NUMBER OF YOUR CHOICE ANI! THEN HIT * 


GOSUB23FPRINT"$&THE RETURN KEY. I’M WAITING FOR YOU, "5N$s".* 
GOSUB2?PRINT"&-1 THE SQUARE STORY*!GOSUR2:PRINT'’~2 RECTANGLES" 
GOSUB2:PRINT"(-3 TRIANGLES":GOSUB2$PRINT")-4 OTAMONDS* 


GOSUB23PRINT"X-S RANDOM" SGOSUB2¢FRINT*+-6 RANDOM GRAPHICS"* 
GOSUB2:FPRINT"»-7 INVERSE RANDOM GRAFHICS* 

GOSUB2{FRINT*--8 INK SFOTS*:GOSUB2:FRINT*.-9 RANDOM INK SFOTS" 
GOSUB2:$PRINT"/-10 FOOTBALL FIELD" 

PRINT*"*INPUT"YOUR CHOICE IS *sB:GOSUB10 

IFB<1THEN108 

IFB>10THEN1I08 

ONBGOSUB1000» 200019001 2007700%80018007 40014007500 
GOSUB17?GOSUB10;:GOTO108 

END 

GOSUB3: GOSUB4? FORK=17T010!GOSUB14? XL=YL!GOSUB20: GOSUB19 
YL=1+INT(YL/2)?XL=YL’GOSUB26: YS=YS+tYL!GOSUB27? XS=XS+XLiYS=YS-YL 
GOSUB273 YS=YS+YLi GOSUB26: NEXTK’ GOSUBS: GOSUB46: RETURN 
GOSUB14:XL=2xYL:GOSUB16;RETURN 

GOSUB3! GOSUB4 $GOSUB19! X=40: Y=12 
FORA=1T032A(A-1)=A-22R(A-1)=A-22NEXT 

FORK=1T05003 IFB=9THENGOSUB19 

A=INT(3KRNDC1)) S IFA=3THEN412 

L=INT(S3#RNDC1))S IFL=3THEN4S14 

IFACA)<>OTHEN440 

IFB(L)=OTHEN412 

X=X+tA(A) $ IFX<2THENX=77 

IFX*77THENX=2 

Y=Y+B(L) 3 IFY=-1THENY=22 

IFY=23THENY=0 

GOSUB7!X=X+A(A) {GOSUB7: NEXT! GOSURS } GOSUB46: RETURN 

$=973XS=102 YS=10!B=10!GOSUB3% GOSUB4 $ FORX=XS+t4TOXS+t48STEP4 } GOSUBS90 
NEXT$S=1263FORX=XSTOXS+3: GOSUBS90; NEXT ¢FORX=XS+44TOXS+47$ GOSUBS90 
NEXT ?3S=1133 Y=YS-1!3FORX=XSTOXS+47 3 GOSUB7! NEXT: GOSUBS $S=1032X=XS-1 
GOSUB590 ! X=XS+43!GOSUB590:3S=1193 Y=YS+Bti !FORX=XSTOXS+47? GOSUB7 3 NEXT 
GOSUBS ! GOSUBS! Y=YS-23 A=03 FORX=XS+2TOXS+22STEP 4: GOSUB2: GOSUB28 ? A=At1 


NEXT $A=50 3 FORX=XTOXS+42STEP 4: GOSUB2$ A=A-103 GOSUB28 3 NEXT S RETURN 
FORY=YSTOYS+B? GOSUB73NEXTY $ RETURN 
GOSUB14$XL=1+INT(75*RND(1))GOSUB16:RETURN 
GOSUB10; IFB=STHENGOSUB3 
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710 S=63+INT(464KRNDC1)) SGOSUB4S FORA=1TO20002 X=INTC77¥RNI( 1) ) 

715 Y=INTC23XRNDC1))?GOSUB7 3 NEXT? GOSUBS ? GOSUR6} RETURN 

800 GOSUB133 IF B=6THENGOSURBS 

810 FORA=1T02000;S=63+INT(64XRND(C1)) 2 GOSUBLIINEXT? GOSUBRL23 RETURN 
900 GOSUB3?GOSUB4$FORK=1T010;GOSUB14? XL=YL i? GOSUB20:GOSUBI9 

905 B=INTCS*XRNDC1)) 3 IFB=STHEN9OS 

910 IF B<ITHENIOS 

915 ONRGOSUB21+22%23124 

920 ONBGOSUB26%27%27%26 

925 NEXTK?GOSUBS: GOSUB46! RETURN 

1000 GOSUB23FRINT"#XA SQUARE IS A SPECIAL CASE OF A PARALLELOGRAM. ALL 
. 


1010 GOSUB23PRINT"$xXFOUR SIDES ARE EQUAL IN LENGTH AND ALL FOUR ANGLES 
ARE * V 

1020 GOSUB2:PRINT"“XRIGHT ANGLES (90 DEGREES). I WILL NOW [RAW AN EXAM 
PLE * 

1030 GOSUB2¢PRINT"&XFOR YOU "3N$#"."$GOSUB17 

1040 S=124¢YL=12'XL=243 YS=8'XS=3! GOSUB3 i GOSUB4 3 GOSUB25: GOSUBI7 

1043 GOSUB23;PRINT“)ATHE SMALL SQUARE IN THE CORNER" 

1044 GOSUB2¢PRINT"XAMEANS THIS IS A RIGHT ANGLE. **GOSURI8 

1045 GOSUB3:GOSUB4: GOSUB2Z¢FRINT")%*+CHR$(97) $GOSUB2{FPRINT*)$*+CHR$(113) 

1046 GOSUBS: GOSUBR6:GOSUB17 

1048 GOSUB2:FRINT"»ALOOK WHERE THE ARROW IS FOINTING.* 

1050 GOSUB18:GOSUB4? GOSUB2¢F RINT" XK%"*+CHR$( 103) 

1052 GOSUB3:3GOSUB2:FRINT") &*+CHR$(113)+CHR$(113) 

1053 GOSUB2{PRINT"*&*+CHR$(92) }GOSUB2SFRINT"+/’ "tCHR$(92) }GOSUBS: GOSURS: 
GOSUB17 

1054 GOSUB23PRINT".AI WILL NOW DRAW SOME SQUARES FOR YOU, "sN$5"," 

1056 GOSUB17:FORL=1T010: GOSUB10!GOSUB19? GOSUB300: GOSUB18: NEXT 

1060 FORL=1T010:GOSUB19: GOSUB300: NEXT? RETURN 

2000 S=63+INT(64XRNI(1)) 3 FORL=1T010% GOSUB600! NEXT? RETURN 
OK 


Here is what 3 rartial RUN looks like on 2 Printing terminal. The "=" 
sign (which followed 3 non-rrinting "ESC") signals the KTM-2 that the 
followingd two characters are absolute YrX cursor coordinates. The "HJ" 
seems to be a residue from the screen-clear oreration. 


=(KHI. I AM YOUR COMPUTER. I WOULD LIKE TO 
=)XKNOW WHO YOU ARE. PLEASE TYFE YOUR NAME 
=KKXAND THEN HIT THE KEY MARKED RETURN. 
=—4 . 
HJ 
=!&HERE IS A LIST OF THINGS I CAN 10 FOR YOU LUX. 
=#&TYPE THE NUMBER OF YOUR CHOICE AND THEN HIT 
=$&THE RETURN KEY. I’M WAITING FOR YOU, LUX, 
=&-1 THE SQUARE STORY 
m’—2 RECTANGLES 
=(-3 TRIANGLES 
=)-4 [DIAMONDS 
=Xk~S  RANIOM 
=+-6 RANDOM GRAFHICS 
»~7 INVERSE RANDOM GRAPHICS 
8 INK SFOTS 
4-9 RANDOM INK SPOTS 
=/-10 FOOTBALL FIELD 


YOUR CHOICE IS 

HJ 
=#kA SQUARE IS A SFECIAL CASE OF A FARALLELOGRAM. ALL 
=$XFOUR SIDES ARE EQUAL IN LENGTH ANI ALL FOUR ANGLES ARE 
=ZKRIGHT ANGLES (90 DEGREES). I WILL NOW DRAW AN EXAMPLE 
=8XFOR YOU LUX. 
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MICRO TECHNOLOGY UNLIMITED SOFTWARE FOR THE SYM-1 

Micro Technology Unlimited has» for many years, marketed an 8 Bit DAC 
Boardy N-1002y for music generations and the 8K RAM Visible Memory 
Board, K-1008» for high resolution drarhics. These are available from 
MTU, together with excellent manuals, K-1002-1L» and K-1008-1L» 
respectively, written for the KIM-1. The two manualsy together with 
SYM~-1 surrlementsys and the 8 Kit DAC Board may also be obtained through 
the SYM-1 Users’ Grour. The SYM-1 Surrlement to the K-1002-1L Manuals 
"8 Bit Digital Music Software’, is mow availablers and the SYM-1 
Surrlement to the K-1008-1L Manuals ‘"Grarhic/Text Subroutines and 
Tlemonstrations"»s will be available 1 June 1980. Im additions the Users’ 
Grour will have available SYM-1 readable ohJect codes on cassettes: for 
each of these items» reloceted to avoid any rages O and 1 conflicts, 
MTU has arranged for the Users’ Grour to adarty debuss markets and 
surport the SYM-1 versions of their software rroducts. 


HARDWARE RECOMMENDATION 

Qne of the rroblems with 2 “comronent* system like SYM» as orrosed to 2 
“rackased" system like the Arprle IIly is where to Plug in all of the 
rower cords. There’s the rower surely, the monitors the recorder rower 


surely, the scorers the modemy the rrinterr the soldering irons etc. To 
make things even worses we have two systems ur and running, and the dual 
flores disk system is temporarily (rerhars indefinitely!) using its own 


Pair of rower suprlies. I can’t even begin to count the number of rower 
cords. A more serious Frroblemrs howevers was the tendency of the 
oscilloscore to completely ‘crash* the system whenever it (the score) 
was turned om or off. Thus the score had to be turned on first, and 
left running as longs as the system was in use, 


Both rroblems were solved with rroducts of Electronic Srecialistsy Ince, 
171 South Main Streets Natickrs MA 01760 (write for their catalog). 
Their Isolator IS0-2» at $55, Frrovides two drours of three 3-rrong 
socketsy each sgrour filter-isolated from the other: and from the rower 
lines their IS0-1 (same Frrice) provides only 3 sockets but these ere 
isolated from each other. You can get either with 2@ 15 A circuit 
breaker for $62» or @ circuit breaker and switch/rilot light for $67. 
Their ISO-3» more exrensiver is similar to the ISO-1» but Frovides 
heavier filteringys for more severe noise environments. My assembly of 
rower cords is now much neaters and things mo longer interact when 
Switched on or off. 

WHITE ANI BROWN MUSIC 

Martin Gardnery in the Mathematical Games section of Scientific 
Americans Arrily 1978» has some interesting words to say about computer 
generated music. By this he means music actually “comrosed" by the 
computers 


"It is commonrlace in musical criticism to say that we enJoy 
good music because it offers 2a mixture of order. and 
surrrises How could it be otherwise?" 


He defines ‘white’ music as beings completely randomy i.e.» comrlete 
surprisery and "brown" music as being @ mixture of order and surrrise, 
An example of complete order is the simple musical scale rereated over 
and over. Both white music and the scales are dull. He offers several 
examples of brown musics one of which is called 1/f music. These sound 
surprisingly "good". When I first read the articler I rrosgrammed the 
examples for my KIM. Unfortunately the listings have been lost. Mre 
Gardner describes the rrocess for generating brown music so welly that 
you should have no trouble writings the rFrosgram yourself, either in 
Assembly or BASIC. You will not need a DAC systemy even the simplest 
timed loopy or VIA timers sauare wave generator will be adeauate for the 
Purpose. You should have much fun with this one! SYM-PHYSIS 3-10 
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LESCRIFTION 


This routine effectively aquadrurles the KTM-2/80 graerhics density by 
Marring a virtual 48X160 screen onto the real 24X80 screen. This allows 
77680 individual Points to be controlled and tested:ssivindg the KTM-2 a 
respectable graphics carability for most arplicetions.The routine was 
written to interface with the KTM-2/80 and BAS-1,showever only minor 
changes are meeded for KTM-2/40 or Assembler interface.In additionsthe 
general techniaue used can be arrlied to other video terminals having 
carabilities similar to the KTM-2. 


The auad density is achieved by creating and maintaining an internal 
memory mar of the KTM-2 screen.Each of the 1920 (24X80) character 
Positions is considered as consisting of 4 serarate elements (Pixels). 
Thus we cam have 16 rossible combinations of the 4 rixels.The KTM-2 
character set contains grarhic characters for each of the 16 Pixel 
combinationsrall that is needed is 2 way to select the rrorer one-.Since 
there ere 4 Pixelsrywe can assign 2a 4-bit code with esech bit rerresenting 
38 Particular Pixel.This gives us a series of 4-hit codes with 2 range 
from 0-15 which can be used to index a table containing the correct 
code to display the grarhic character reauired.Setting or resetting e@ 
Pixel merely involves turning the arrrorriate bit on or off in the 
4-bit code and using the resulting value to access the new grarhic 
character. 


The use of 2 4-bit code also allows us to compress the 17920 character 
mar into 960 bytes by combining two 4-bit (Nybble) codes into one Kyte. 
This complicates the code slightly but the resultant saving in memory 

is well worth it.To simplify the eccessing of the Pprorer screen mar byte 
@ table of Pointers was created (RTAB) to allow direct indexing to the 
correct row.This in conJunction with the column allow us to access the 
mar bytes without having to rerform multiply orerations.(Note-if you 
have @ KTM-2/40sthe RTAB entry increment can be changed from +40 to +20 
and the "KSS" following the label "MAP$* can be reduced to 479) 


One problem in usinsa the 16 graphic characters for rixel disrlay is that 
they can not all be disrPlayed in the same mode (some reauire mormal mode 
while others reauire reverse mode)sThe solution to this was to allocate 
one bit in the Pixel Mar Table (CHAR) entry to indicate the mode that 
the KTM-2 had to be in for rrorer disrlay.The rightmost bit was used for 
this purrose (O=normalsi=reverse) leaving the leftmost 7 bits to code 
the graphic character.An internal mode indicator (MODE) is used to keer 
track of the KTM-2’s current mode (0=normal»-i=reverse).When the mode bit 
and mode indicator differrthe KTM-2 mode is chansed prior to displaying 
the character. 

Total memory reauired is 1241 bytes for the KTM-2/80 version and 761 
bytes for the KTM-2/40.This allows both plot and tris routines to be 
used in 2 4K system with arrroximately 2500 butes left for BAS-1 use, 
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FUNCTIONS 


Four functions are rrovided by this routine? 


CLEAR - This clears the KTM-2 screen and the internal screen mar.The mode 
indicator is reset to normal mode (zero). 


SET - The referenced rixel will be turned “ON"* in the internal mar and 
the arrrorriate graphic character displayed. 


RESET - The referenced rixel will be turned “OFF* in the internal mar and 
the eprrorriate grarhic character displayed. 


TEST - The referenced rixel in the internal mar will be tested and @ value 
returned representing its state (O0="OFF",r1="ON"), 


"CLEAR" reauires no rarameters while the other three calls reauire that a 
Virtual Row (0-47) be rassed in the A-resister and @ Virtual Column (0-159) 
Passed in the Y-resister (Note-for KTM-2/40 the Virtual Column cam omly be 
from 0-79).This would seem to he @ rroblem es the KRAS-1 “USR" function only 
allows one Parameter to be rassed in the A-Y resister fair (others can be 
Passed on the stack).We can slir two Parameters rast BAS-1 for the rrice of 
one if we structure our call as follows: 


USR(A»x256*R+C) 
Address of Routine 


Virtual Row (0-47) 
Virtual Column (0-159) *k(0-79) for KTM-2/40xkx 


where: A 
R 
c 


Multiplying by 256 effectively shifts the Virtual Row into the A-resister 
while the Virtual Column remains in the Y-resister. 

If the 4 entry roint addresses (CLEAR:SETrsTEST and RESET) are eauated 

to the variables CyS*TRrand the Virtual Row/Column to the variables 

Y end X then the 4 calls can be illustrated as follows? 


CLEAR - Q = USR(C,10) 
SET = Q = USR(S»254xY+X) 
RESET - Q = USR(Rs256xY+X) 
TEST = Q = USR(Ts256xY+X) 
*kKNote-to use an Assembler interfacerthe "JMP BSRET" must be 
replaced with "RTS". 
USAGE 


- Prior to besinning @ Plotrthe "CLEAR" function should be invoked and the 
KTM-2 Placed in Grarhics/Normal mode. 


- Your Program should not change the KTM-2 mode (Normal/Reverse) as it will 
cause unrredictable results on the Plot. 


- After plotting has been completed your program must reset the KTM-2 mode 
to whatever is reauired as the final state is unpredictable, 
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19F3201 
19F46208 
19F7210 
19FA380 


19FRi2k 
19FDI53 
19FFi78 
LAOLIAS 
1A03:3CR 
1AOS?FS3 
1A0771B 
1A097343 
1A0B; 6B 
LAOD:93 
1AOF? BB 
LALI3E3 
1A13°0B 
1A15333 
1A17:°5B 
1A19383 
1A1B7AB 
1ALDINS 
1A1FiFB 


02 04 


20 40 


a 
SCNMUONBDUS Whe 


Be 
Lo 


BPRPRPHE EPR 
wWONAU DW 


Sik 


tJ rl 
ro 


e) 
my 


ped 


23 


Jr rarer rs 
AD 


f t 
WON D 


AW 
ro 


WO 
Gh 


41 


43 


44 


PECCe ee sete Ces eters SSes55 592992225 32325 9395522 2232293 
ok x 
5k HI-DENSITY PLOT ROUTINE FOR THE KTM-2 x 
+* x 
+x BY } BILL GOWANS x 
x x 
OOOO OOOO OOO COO OO ICO IL AOK KK 

ORG S19EE 
OOOO OOOO OOOO OOO OOO OK OK OK AK KOK 
a ZERO PAGE WORK LOCATIONS 
OKO SO ROO OOOO OOS OO IO SOO ORS IO KOO OOK IAAI AK 
ZWORK? EFZ $FE 
RPTR? EPZ $EE 
FOO OOOO OOOO OOOO OR IO OCR K IKK 
ix FROGRAM VARIABLES x 
OOOO OOOO OOO OOO OOK OOO OK IOI OK KOK 
ROW? BSS 1 
COL¢ BSS 1 
FLAG? &SS 1 
MODE: &SS 1 
CINDX? BSS 1 
OOOO OOOO OOO OOOO IO CICK 
+ EXTERNAL ROUTINES x 
OOOO OOOO OOOO OKO OOK KKK 
SENDS EQU $BA47 
BSRET: EQU $014C 
WFON? EQU $8R9C 
WFOFF: EQU $8R86 
CLRM? EQU $8723 
OOOO OOOO OOK OOO KOKO KCC KKK 
5x FIXEL MASK TABLE x 
JOO OOOO OOOO OOOO OOOO SOO KOSOSSS SOOO IK 
MASK? EQU x 

BYTE $01%%02%%047%08 

BYTE $107%207$407%80 
FCO OOOO OOOO OOOO OO OOK OOOO RK KOK 
5x SCREEN ROW POINTER TABLE x 
[OOOO OOOO CC OOOO KICK CK IO KOK KK 40K 2k 
RTABS EQU x 

WORD MAF» MAF+40»MAP+80> MAF +120 

WORD MAP+160»MAP+2007MAP+2407MAP+280 

WORD MAF+320»MAF+360»MAP+400s MAF +440 

WORD MAF+480»MAP+5202MAP+5601MAP+4600 

WORD MAF+4407MAF+680»MAP+720 »MAP+7460 
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1A21323 
1A23°45 
1A25373 
1A27°9R 
1A293C3 


1DER:C1 
IDEESE8 
10Fi:BD 
10F3:93 
1DF 6394 
1LF9°398 


1DIFBiA? 
10FD320 
1E00:320 
1EOS3tA9 
1E0Si?85 
1EO73A9 
1E09385 
1EOB:A9 
1E0n38n 
1E10%A9 
1E12:80 
1E153A9 
1E17:8D 
1E1Ai20 
1E1iD:4C 
1E20%A2 
1E22°F0 
1E24%A2 
1E26330 
1E28°A2 


10 
it 
il 
in 
1m 


29. 
95 
92 
BC 
EF 
FO 


oc 
47 
86 
2B 
FE 
1A 
FF 
EA 
4A 
10 
4B 
00 
Fi 
23 
9c 
00 
06 
80 
02 


40 


ith 
c9 


c8 
96 


8A 
8k 


46 
47 
48 
49 
so 
o1 
32 
93 
54 
35 


56 


WORD MAF'+800»MAF+840»MAF+880 9 MAF +920 


Pete SSOSeS CCS SSCCS Sees ss seer 2333229929932 25 229 3325 2 9 % 


ax SCREEN MAF x 
ZOO OOOO OOOO OC OOK KOK KK KOK 
MAF? EQU x 

RSS 959 
MAFE: BSS 1 


SEP RAARE ER SAEO ORE eee ae 
7% FIXEL CHARACTER MAF TABLE 
SEN SAG REAL ELIT LE RL 
CHAR? EQU x 

BYTE $Cily$9Pr$97 FE Br S9Se SCP FED $92 


BYTE $932¢RCx$COr$94y FEV 9 S967 $989 SFP 


OOOO OOOO OOOO OOO OOK KOK KCK K 


ak MAIN FROGRAM 

+x * 
x THERE ARE 4 ENTRY POINTS IN THE * 
5 PROGRAM? x 
+* x 
+x x 
7k "CLEAR" - CLEARS THE KTM=2 AND x 
ox INTERNAL SCREEN MAP. x 
9x x 
+x "SET" - TURNS ON THE REFERENCED x 
7X PIXEL. x 
3x x 
+x "RESET" - TURNS OFF THE PIXEL x 
+x x 
9x "TEST" - TESTS STATE OF PIXEL x 
+k AND RETURNS VALUE x 
ax (O=O0FF 71=0N) x 
OOOO OOOO OOOO OOOO OOOO RKRK 


CLEAR: LIA ¥#$0C yLOAL SCREEN CLEAR CHAR 
JSR SENT sSEND IT OUT TO KTM-2 
JSR WPOFF sTURN OFF WRITE PROTECT 
LOA #<MAP ¢SETUP THE 
STA ZWORK > LOW AND 
LDA #>MAP ¢ HIGH ADDR 
STA ZWORK+1 5 IN MONITOR 
LIA #<MAPE ; AND THEN 
STA SA64A 5 CLEAR MAP 
LIA #>MAPE 5 AREA TO 
STA $AG64B 5 ALL ZEROS 
LIA #$00 sRESET MODE FLAG 
STA MODE § TO INDICATE NORMAL MODE 
JSR CLRM sUSE MONITOR ROUTINE TO CLEAR 
JMP WPON sTURN WRITE PROTECT BACK ON 
RESET: LDX #$00 sFLAG(O) = RESET PIXEL 
BEQ PLOT 3JUMF TO MAIN ROUTINE 
TEST? LDX #380 sFLAG(-) = TEST PIXEL 
BMI PLOT 9JUMP TO MAIN ROUTINE 
SET: LINX #$40 5FLAG(40) = SET PIXEL 
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1E2A38E 
1E20348 
1E2E398 
1E2F3A2 
1E31:4A 
1E32:80 
1E35390 
1E37:E8 
1E3834A 
1E39:80 
1E3C3BO 
1E3E3E8 
LESFSES 
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1E41:3E8 
1E42:368 
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1E47:90 
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LE4I3B9 
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1E7A? BO 
1E7Ci29 
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1E8034A 
1E81:34A 
1E8234A 
1E83:34A 
1E84:3AA 
1E85;B80 
1E8834A 
1E89348 
1E8A;AD 
1E8D330 
1E8F290 
1E913A2 
1E93350 
1E95:B0 
1E972A2 
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130 

131 

132 

133 

134 

1235 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 


FLOT?: 


CEVEN: 


RNIEL? 


REVEN$ 


PXOFFt 


SETPX$ 


RSTRE: 


LNIBL? 


GETCH?: 


MREV? 


STX 
FHA 
TYA 
LIX 
LSRA 
STA 
KCC 
INX 
LSRA 
STA 
BCS 
INX 
INX 
INX 
INX 
FLA 
LSRA 
STA 
BCC 
INX 
INX 
ASLA 
TAY 
LIA 
STA 
LIA 
STA 
LIY 
LIA 
BIT 
BFL 
LOY 
ANI 
BEQ 
INY 
LIA 
IMP 
ORA 
BYVS 
EOR 
STA 
CPX 
BCS 
ANID 
BCC 
LSRA 
LSRA 
LSRA 
LSRA 
TAX 
LIA 
LSRA 
PHA 
LIA 
EMI 
BCC 
LDX 
BCS 
ECS 
LDX 


FLAG 


#¢00 


COL 
CEVEN 


CINIX 
RNIEL 


ROW 
REVEN 


RTABYY 
RPTR 
RTAB+19Y 
RPTR+1 
CINIIX 
(RETR) 2¥ 
FLAG 
SETPX 
#300 
MASK 1X 
PXOFF 


#$00 
ESRET 

MASK +X 
RSTRE 
MASK » X 
(RETR) + 
#504 
LNIBL 
#$0F 
GETCH 


CHAR + X 


MOLIE 
MREV 
MDOK 
#°R‘ 
MDIICHG 
MDOK 
ror? 


+STORE ACTION FLAG 
*SAVE ROW TEMF'ORARILY 
*MOVE COLUMN TO A-REG 
#FRESET PIXEL MASK INDEX 
*DIVINE COLUMN BY 2 
*SAVE TRUE COLUMN FOR LATER 
sERANCH IF COLUMN WAS EVEN 
sOTHERWISE BUMP MASK INDEX 
sDIVIDE COLUMN BY 2 AGAIN 
sSAVE MAF COLUMN INDEX 
yERANCH IF CHAR IN RIGHT NYRBLE 
sELSE ADL 
5 4 T0 
3 COLUMN 
5 MASK INDEX 
sRETRIEVE ROW 
sDIVIDE ROW BY 2 
sSAVE AS TRUE ROW 
*BRANCH IF ROW WAS EVEN 
sELSE BUMP MASK 
> INDEX BY 2 
sMULTIPLY TRUE ROW RY 2 
+ TO USE AS ROW TABLE INDEX 
#GET ROW POINTER 
3 FROM ROW TABLE 
5 AND STORE IN 
5 PASE ZERO 
*RETRIEVE MAP COLUMN INDEX 
3GET SCREEN MAF BYTE 
3TEST ACTION FLAG 
*BRANCH IF NOT “TEST* 
sCLEAR Y-REG FOR RETURN 
sTEST PIXEL WITH MASK 
sERRANCH IF PIXEL "OFF* 
*RUMF Y IF PIXEL "ON* 
sSET RETURNED A TO ZERO 
sRETURN VALUE TO BASIC 
sFORCE PIXEL *ON* 
sBRANCH IF WE DID IT RIGHT 
sOTHERWISE TURN FIXEL "OFF" 
#RESTORE SCREEN MAP BYTE 
sCHECK NYBBLE CHAR IS IN 
sBRANCH IF IN LEFT NYBBLE 
3IN RIGHT NYBBLE- JUST MASK 
5GO GET FIXEL CHARACTER 
sSHIFT MAP 
BYTE TO GET 
PIXEL INDEX 

IN RIGHT HALF 
+TRANSFER FIXEL INDEX TO X 
3GET FIXEL CHAR + MODE BIT 
+TRANSFER MODE TO CARRY 
¥SAVE CHARACTER 
*GET KTM-2 MODE FLAG 
sBRANCH IF WE ARE IN REVERSE 
#BRANCH IF BOTH MODES NORMAL 
sSETUP TO CHANGE TO REVERSE 
3GO CHANGE MODE 
*BRANCH IF BOTH MODES REVERSE 
#SETUP TO CHANGE TO NORMAL 


“har ee 
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1E99349 FF 
1E9R:80 Fi 19 
1E9ES A? 18 
1EA0320 47 8A 
1EAZ:3S8A 
1EA4320 47 8A 
1EA77A9 1B 
1EA9320 47 BA 
1EACTAP 3D 
1EAE?20 47 SA 
1EBi?AL EE 19 
1ER4318 


1EBS 


369 20 


1EB7320 47 8A 
1EBA‘AD EF 19 
1ERD2139 
1EBE369 20 
1ECO0:20 47 8A 
1EC3:68 
1EC4:4C 47 8A 


157 MIICHG: EOR 


158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
149 
170 
be | 
172 
173 
174 
175 
176 


MOOK? 


reference name table 


value 

name size dec hex 
RSRET 2 53580 014C 
CEVEN re 7736 1E£38 
CHAR 2 7659 10GB 
CINDY 2 6642 19F2 
CLEAR 2 7675 i10FR 
CLRM 2 34595 8723 
coL 2 6639 19EF 
FLAG 2 6640 19FO 
GETCH 2 7812 1£84 
LNIBL 4 7808 1E80 
MAF 2 4699 1A2B 
MAPE 2 7658 ilEA 
MASK 2 6643 19F3 
MIICHG 2 7853 TESS 
MDOK 2 7847 1EA7 
100 REM: 

110 REM: 

120 REM? (Edited slightly by Lux) 
130 REM} 

140 C=8°1DFR"*}S=&"1E28" 

150 ESC$=CHR$(27) 

160 X=23Y=3'X1=1:71=1 

170 Q=USR(C:0) 

180 PRINT ESC$+"G" 

190 FOR I=17T02066 

200 Q=USR(S» 256xY+X) 

210 ITFX*iS60RX<1 THEN X1=-X1 
220 LFY*460RY<1THENY1=-Y1 
230 X=X+X1¢Y=YtY1 

240 NEXT 

250 FRINT ESC$+"s"+ESC$t*r® 
260 PRINT ESC$+*="+CHR$(32+21)+CHR$(32+0) + 
270 END 

OK 

NOTE: For the KTM-2/40% 


STA 
LIA 
JSR 
TXA 
JSR 
LIA 
JSR 
LIA 
JSR 
LDA 
cLc 
4érc 
JSR 
LIA 
cLC 
Anc 
JSR 
FLA 
JMF 


change 158 to 78 in 


¥¢FF 
MODE 
#¢18 
SENII 


SEND 
$$18 
SEND 
#/=/ 
SEND 
ROW 


#$20 
SENT 
COL 


#$20 
SEND 


SENII 


*FLIP MODE FLAG 
*STORE AS NEW KTM-2 
sESCAFE CHARACTER 
+SEND TO KTH-2 
+TRANSFER MODE CONTROL TO A 
+SENI TO KTM-2 

sESCAFE CHARACTER 

sSEND TO KTM-2 

sABSOLUTE CURSOR ADDRESSING 
sSEND TO KTM-2 

7GET TRUE ROW ADLIIRESS 

sALULD BIAS REQUIRED 

5 BY KTM-2 

#SEND TO KTM-2 

#GET TRUE COLUMN 

sADD BIAS REQUIRED 

§ BY KTM-2 

3SEND TO KTM-2 

sRETRIEVE FIXEL CHARACTER 


MODE 


#SENI TO KTM-2 ANI! RETURN 
MODE 2 6641 19F1 
MREV 2 7829 1695 
FLOT 2 7722 1E2A 
PXOFF 2 7785 1669 
RESET 2 7712 1£20 
REVEN 2 7755 1£4B 
RNIBL 2 7746 1642 
ROW 2 6638 19EE 
RPTR a 238 OOEE 
RSTRE 2 7798 1E76 
RTAR 2 6651 19FR 
SEND 2 35399 8A47 
SET 2 7720 1£28 
SETPX 2 7790 1E6E 
TEST 2 7716 1£24 
WROFF 2 35718 8886 
WPON 2 35740 8E9C 
ZWORK 1 254 OOFE 


DEMONSTRATION FROGRAM FOR BILL GOWANS’ 
HI-DENSITY FLOT ROUTINE FOR THE KTM-2/80 


19FO 00 00 00 O1 02 04 08 
19F8 20 40 80 2K 1A 53 1A 
1A00 1A AZ 1A CK 1A F3 1A 
1A08 1B 43 1B 6B 1B 93 1B 
1A10 1B ES 1B OF 1C 33 1C 
1A18 1C 83 1C AB 1C 03 1C 
1A20 1C 23 1D 4B 1D 73 10 


1A28 10 C3 1D 00 00 00 00 
OFBA 


10,1F 
7By2C 
1B710 
BRy78 
SB:62 
FByCE 
9By RI 
00+ BA 


Continued on Page 18 


line 210. 
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A BUG 


We received the following letter from J+ Je Sullivans 19 Sylvester 
Kallansury Qld.» 4503» Australiay during the bi-monthly ‘“crisis" 
when we set SYM-PHYSIS ready for the Frinters:s and thousht that 


Iirivey 


reriogd 


IN THE RAE~i RELOCATING LOADER? 


the auestion Fosed was worth an immediate answer: 


Dear Dr- Luxenberg, 


I have discovered an interesting problem with the RAE-l- I solved it, 
so it is no worry but I have enough curiosity for six cats- 


Originally I had intended to leave the relocating loader alone add 

depend on your relocate programme but changed my mind for two reasons. 

One was the discovery that Relocate doesn't catch everything. For example, 
it misses several adjustments in the Ultra-Renumber programme,two that 
you are warned about and one that you are not warned about---except 
possibly by indirection and hindgight- The other reason was that I 

read your RAE Notes and when I cross-referenced them to the manual, 
particularly section 4.6, paragraph five, I started going round in 
circles. 


The only solution was to punch up the relocater source code and start 
experimenting. Eventually I got it and understood what everyone was 
talking about. If only someone had said "Use OU instead of PA" it would 
have saved me a lot of trouble. 


Anyway, I had the loader in memory add I had it as a relocatable tape 
so I set out to load it. I followed instructions religiously--~-and 
absolutely nothing happened. I tried everything, even to disassembling 
the programme and laboriously checking it, byte by byte, against the 
code in the manual. It seemed ridiculous to suspect the programme, 


since it worked for Synertek and it worked for you, but there was nothing 
else left. 


Eventually I zeroed in on line 3810. Why the three byte offset? I spent 
a long time with the monitor programme but I still couldn't see the 
reason. In fact, as I saw it, that offset was a guarantee that the 

tape wouldn't move. finally, I changed the code to 20 78 8c and 
everything worked like a charm- I loaded the tape, relocated it and 

used it to load itself again. I figured that was a pretty fair check. 


I immediately duplicated and amended the source programme and stored it 
for future reference. , 


As you can see, I have no immediate problem except this bump of 
curiosity. Consequently, I will be intently watching future issues of 
RAE Notes and the newsletter to see if there is any reference to this 
matter, because I don't imagine I will be the only one with this 
problem. 


What has me baffled is the fact that the programme worked for Synertek 
and worked for you. I don't see how it could. 


Yours faithfully, 


Ce ce CSe 


Noe 


(J. J. Sullivan) 
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Year Mr Sullivan: 


Qur early versian of the relocatins loader arrears to be identical to 
the one rublished im the RAE-1 Reference Manual: at least in the area in 
auestiony and works with MON 1.13 it will mot work with MON 1.40% Your 
fix will make the loader work with both MON 1.0 and MON 1.1. 


Here is the explanation for both the "why" and the “why not". If you go 
directly to LOANT at line 3810 Recorder O (write) will start. Of course 
if ou have turned it off this is no Froblem, Since you ere mot in RAE 
when vou use the loadery you will have to turn om Recorder 1 (read) by 
hand, This is mo rroblem eithery since you enter with .G 0200» start 
the tare manually, and stor it when the "." arrears asain. We have 
never bothered to add on the relay for the read recorder, since the "S* 
eromet on the SYM tells us when to start the read recorder, Besides, 
one day soom we will be ell disk! 


The entry at LOAIT+H$3 skies the turnon of Recorder 0 in MON Lely but 
could get you lost in MON 1.0 (have never tried ity and have not checked 
out the code since MON 1.0 is obsolete), While the startins addresses 
for LOANT are the same in both MONsr the subroutines differ nearly 
everywhere else} they even use different timers (4532 vs. 6522), 
“Historically sreaking",s the changes were made to eliminate a KIM format 
read bus in MONy a JMP WARMSTART bust im BAS-1* and the need to hit RST 
to abort an unwanted LOALIIT, Many other changes were included at the 
same time to very much enhance the versatility of the VIM (Versatile 
Interface Monitor). 


If you replace LOAIT+$3 with LOADIT, es you have doney note that much of 
the coding between lines 3720 and 3810 can be drorred because the 
instructions are rereated in JSR START, which is called by LOAIT. 


Hore this satisfies your curiosity. I enJoy using the relocating 
loaders and .CT# one day soon I hore to have disk system eauivalents for 
both of these. And yes, it is unfortunater but truer that the manual 
does mot make it explicitly clear that, to rroduce a relocatable obJect 
code dume on tare, when you are assembling from tarey you must use OU» 
instead of =FA for the second Fass! 


Muy maJor redret these days is that 95% of my time on the SYM is srent 


Processing words, rather than doing all of the work with srerhicsy 
musics voice synthesis, rattern recognition: etc.» for which I feel both 


ms SYM and I were destined! 


I always enJoy your letters. 
1E40 E8 E8 68 4A BL EE 19 90sT2 


Resardsy 1E48 02 E8 EB OA AB BY FR 19723 
1E50: 85 EE BS FO 19 85 EF ACs84 

Su WESS F2 19 Bl EE 2C FO 19 10973 
u 1E60 OD AO OO BL F3 19 FO O1°5A 


1E68 C8 AP OO 4C 4C Tl 1D F344 

: 1E70 19 70 03 SI F3 19 91 EEVBS 

Contes Trem yese Re 1E78 EO 04 BO 04 29 OF 90 O4s1C 

PS OH 60 OO EL 99 HF Es Saree 1E80 4A 4A 4A 4A AA RD EB 1LyB3 

5 1E88 44 48 AD FL 19 30 06 90162 

1DFO C9 BL 92 93 BC CB 94 EPriA pe oe 

LDF8 96 98 F9 AP OC 20 47 BALE? pee es ys ae a Me as a Ae 
1E00 20 86 BB A 2B 85 FE A118 2 vF 

(os ae se Ae EA BS is Abucé 1EAO 20 47 BA BA 20 47 BA APL 


1E10 AJ 1 BD 4B Aé AP 00 B40 1EAS 1B 20 47 8A AP 3 20 47768 
1E18 Fi 19 20 23 87 4C 9C 8E187 1EBO BA All EE 19 18 69 20 20764 


1EBS 47 BA AL EF 19 18 69 20-85 
1E20 AZ 00 FO 06 AZ 80 30 02173 
1E28 A2 40 BE FO 19 48 98 A2+6E 1ECO 20 47 BA 68 4C 47 BAr01 


1E30 00 4A 80 EF 19 90 01 E8,Cé 6601 


1E38 4A 80 F2 19 BO 04 EB E8220 SYM-PHYSIS 3-18 


SCOFE GRAFHICS AND COMPUTER “GENERATED MUSIC 

Heres combined: are a courle of novelty demo rrogramsy that have resided 
in our high RAMs salons with our utility rrosgrams, for years. They heave 
been written es subroutines callable from MON» BAS: and RAE, and return 


to the caller when the Terminal BREAK key is held down, The music 
Frrogram is based on Ts C. O’Haver’s "More Music for the 6502", BYTE» 
June 1978. The score graphics rrogram is based on one siven by Row 


Flacco in “Grarhics Interface", which he calls “Starburst Graphics", in 
6502 User Notes Issue 9/10. Mr. Flacco’s Frogram iss in turns based on 
nN. John Anderson’s ‘“Serendirpitous Circles", BYTE, Aususts 1977, Inci- 
dentally» the "Swirl" rProgram supplied with MTU’s Visible Memory is 
closely related, 


The original articles fully describe how to chanse parameters to change 
the arrearance of the display, or the sound of the music, Our version 
of the Frrograms initializes the starting values to rrovide an inter- 
esting mixture of the “‘exrected" and the “unexrected"., Sorry there’s no 
source codey but the frograms are shorts and the aldorithms are simple! 
The Programs have been moved to low RAM for smaller SYM’sr and will 
reauire two simple six-bit DAC’s: as shown in the sketch. The design is 
a modification of the one given in Chamberlin’s music articles the 
resistor values were changed to fit values carried in stock by Radio 
Shack. A second sketch shows an “add-on* to rrovide an eisght-bit DAC. 
A simples one transistors or single chirps amplifier of nearly any tyre 
will rrovide the audio. The two DAC’s are connected to PAO throush PAS 
and FBO through FRS on the Arrlication Connector The sketches are rough 
(please forsdive the auality)s maybe one day SYM can be trained to do my 
drawings on rarery 3S well as my turing, 


0230-85 EA STA EA 
*STARBURST* SCOPE GRAPHICS 0232- AS FS LUA FS 
PROGRAM 0234- 4A LSR A 

0200- Ag F2 LIA #F2 0235-85 F7 STA F7 
0202-85 FS STA FS 0237-49 ~FF EOR #FF 
0204- AY BE LUA #8E 0239- «EA NOP 
0206- 85 FS STA Fé O23A- EA NOF 
0208- AY 3F LDA #3F 023B- 38 SEC 
O20A- = 8 03 AO STA A003 023C- 69 00 anc #00 
O20n- = =8D 02 Ad STA A002 O23E- 985 E9 STA E9 
O210- AS Fé LDA Fé 0240- AO 04 LOY #04 
0212- 4A LSR A 0242- Ab F7 LDX. F7 
O213~ 49 FE EOR #FE 0244- AS F8 LOA FB8 
0215- EA NOF 0246- 20 64 02 JSR 0264 
O216- EA NOP 0249- Ab EP LDX IE? 
0217- 36 SEC 024B- AS FB LDA F8 
d218- 65 FS anc FS 024D- =. 20 64 02 JSR 0264 
O21A- EA NOF 0250-  Aé& EP LDX E9 
O21B- EA NOF 0252- AS EA LDA EA 
O21C- 85 FS STA FS O254- 20 64 02 JSR = 0264 
O2Z1E- 4A LSR OA O257- AS F7 LDX F7 
O21F~ 18 cLe 0259- AS EA LIA EA 
0220- 65 Fé anc =F O25B- 20 64 02 JSR 0264 
0222- EA NOP O25E- 88 LEY 
0223- EA NOP O25F- 10 E1 RPL 0242 
0224- 85 Fé STA Fé 0261- 4€ 7C 02 JMP 027 
0226- 4A LSR A 0264- 18 cLC 
0227-85 FB STA FB 0265- = 69 20 AIC #20 
0229- 49 FF EOR #FF 0267- = 8D 00 AO STA A000 
O22B- 38 SEC 026A- BA TXA 
O22C- 69 00 ADC #00 026B- 18 CLC 
O22E- EA NOF 0266= 69 20 anc #20 
022F- EA NOF O26E- 80 01 AO STA A001 
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0271- 
0273- 
0276- 
0279- 
027B- 
027C- 
027F- 
0281- 
0283- 


0200 AP 
0208 AY 
0210 AS 
0218 65 
0220 65 
0228 F8 
0230 85 
0238 FF 
0240 AO 
0248 02 
O250 Ab 
0258 F7 
0260 E1 
0268 00 
0270 AO 
0278 A4 
0280 02 
44FC 


Ag? 
Bh 
2C 
10 
60 
20 
KO 
90 
60 


F2 
SF 
Fé 
FS 
Fé 
49 
EA 
EA 
04 
AG 
E9? 
AS 
4c 
AO 
ag 
10 
90 


85 
8m 
4A 
EA 
EA 
FF 
a5 
EA 
Ab 
E9 
AS 
EA 
7c 
BA 
20 
FR 
gil 


A4 
A4 


83 


FS 
03 
49 
EA 
EA 
38 
FS 
38 
F7 
As 
EA 
20 
02 
18 
8n 
60 


it 
20 


609FC 


*MUSIC GENERATOR" 


0284- 
0286- 
0288- 
028A- 
O28C- 
O28E- 
0290- 
0292- 
0295- 
0297- 
0298- 
O29A- 
O29B- 
029C- 
O29n- 
O29E- 
O2A0- 
O2A1L- 
O2A3- 
O2AS- 
O2A7- 
O2A9- 
O2AB- 
O2AD- 
O2AF- 
O2B1- 
02B4- 
O2B7- 
O2B8- 
O2R9- 
O2BEB- 
O2RC- 
O2BE- 


Ag? 


08 
EE 
OF 
EF 
ou 
F2 
3F 
03 
00 


FO 


Fi 
06 


AO 


03 
AO 


LIA #20 
STA A4it 
BIT A404 
BPL 0276 
RTS 

JSR 8386 
RCS 0283 
RCC 0210 
RTS 

BE 85 F6érC7 
BI 02 AOVOE 
EA EA 38946 
FS 4A 18750 
F6 4A BSC? 
00 EA EAr7E 
BS F7 49996 
00 85 E9:78 
F8 20 64s1A 
20 64 0258E 
64 02 AébrI8 
02 88 1057C 
69 20 8955 
20 SI 0O1sAE 
A4 2C 04995 
86 83 BO»7I 
FROGRAM 
LDA #08 
STA EE 
LIA #0F 
STA EE 
LOA #00 
STA F2 
LOA #3F 
STA A003 
LDY #00 
TYA 

AND #FO 
LSR A 

LSR A 

LSR A 

LSR A 

STA FO 
TYA 

AND #0F 
AND FO 
ALC FO 
ANI EF 
STA FO 
LOX #00 
LDA F2 
STA F4 
LDA 0300+X 
STA A001 
TXA 

CLC 

ADC FO 
TAX 

DEC Fi 
BNE 0206 


02C0- 
02C2- 
02C4- 


02C6- 
02C7- 
02C8- 
O02CA- 
O2CR- 
o2CcD- 
O2CF- 
o2n1- 
O203- 
O205- 
O217- 
O20A- 
o2nc—- 


0284 
028C 
0294 
O29C 
O2A4 
O2AC 
O2B4 
O2BC 
0204 
02CC 
o2n4 
o2nC 
3124 


F4 
ED 
04 


E7 


F3 
ce 
EE 
F3 
02 


PEO 


86 
CF 


85 
85 
00 
85 
FO 
F2 
AO 
ro 
EA 
ce 
FO 


HEX DUMF OF 
"MUSIC GENERATOR" 


0300 
0308 
0310 
0318 
0320 
0328 
0330 
0338 
0340 
0348 
9350 
0358 
0360 
0368 
0370 
0378 
0380 
0388 
0390 
0398 
O3A0 
O3AB 
O3B0 
O38 
03CO 
03C8 
O3D0 
0308 
O3E0 
O3E8B 
O3FO 
O3F8 
278E 


32 
39 
3C 
3c 
3A 
39 
3A 
3B 
3E 


34 
3A 
3C 
3c 
3A 
39. 
3A 
3C 
SE 
SF 
3E 
3A 
33 
2k 
23 
1E 
1c 
1F 
23 
28 
28 
2A 
24 
1B 
10 
06 
00 
00 
06 
10 
1p 
2A 


35 
3A 
3C 
3C 
3A 
39 
3A 
3c 
3E 
3F 
3E 
39 
32 
2A 
22 
in 
in 
a5 
24 
29 
2k 
29 
23 
19 
OF 
os 
00 
oO1 
07 
12 
ue 
2B 


83 


EE 
F2 
98 
Fo 
25 
85 
8A 
06 
18 
AS 


20 


"“VOICE® 


36 
3k 
3C 
3k 
3A 
39? 


36 37 
3K 3B 
3C 3C 


38 
3C 
$C 
3B 
37 
37 
3B 
3m 
SF 
3F 
3E 
36 
2E 
26 
iF 
1£ 
in 


TABLE 


39 AF 
3286 
30266 
3Er41 
39 OF 
3997 
3BrAA 
30/80 
3F 81 
SE ase 
3Br62 
35722 
20yAA 
25¥F2 
1F»FR 
1C+E7 
1EsCE 
229CE 
279F4 
28s 3E 
2A9S 
267D7 
1DyE2 
13°90 
08%03 
01*23 
00725 
04734 
Olly 7D 
LAS1E 
27927 
3178E 
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COMPUTER MUSIC 


One of the most helreful articles available on comruter rlayed (mot com- 
eruter composed) music is Hal Chamberlin’s "A Sampling of Techniaues for 
Computer FPerformance of Music's KRYTE, Sertember 1977, This "classical" 
article has been reprinted im The BYTE Book of Computer Musicy available 
at many computer storesy and will rrove to be your best starting roint. 
Nexty read Hal’s urdating article om "Advanced Real-Time Music Synthesis 
Techniaues"» BYTE» Arril 1980, We heard 2 demonstration of Chamberlin’s 
advanced techniauesy at the West Coast Comruter Faire in March» and were 
much impressed. 


In the original articles Mr. Chamberlin dives 6502 subroutines for tone 
generations and shows a simple one-transistor amplifier you can hang 
onto any outreut Fort bit (on the SYM you can adart any one of the unused 


on-board buffers for this. rurrose). You can use either timed delay 
loors or the pair of timers im one of the VIA’s to senerate any desired 
tone for any desired duration. We recommend that you try both methods. 


With either of these arrroaches the sound timbre is limited to what you 
can set by changing the duty-cycle of the sausre wave. 


For @ richer range of timbres Hal (and we) recommend the DAC 


(digital-analog converter) serrroach. The article gives all circuit 
details necessary to build-your-owns so we will not rereat the details 
here. You can also use any commercially available [I/A chir. We 


recommend that that you consider the complete DAC board manufactured by 
Mr. Chamberlin’s companys Micro Technology Unlimited (MTU). It in- 


cludes its own audio amplifiers and also includes a share cut-off 
low-rass filtery mecessery to eliminate the “aliasing* distortion 
introduced by sampling 3a wave-form table at too hisgh 2a rate, This 


distortion is rarticularly annoying om the higher frequency motes. A 
cory of the original article is surplied with the boards as is a KIM 
demonstration tare. Since the KIM tare is imcompatible with SYM (rages 
zero and one are included), we -have made arrangements with MTU to 
erovide SYM tares. MTU also has an Advanced Music Software rackase 
written for the KIM. We will rrovide an Arrendix to their rackase and a 
cassette for the SYM. See back rade for ordering information. 


We have been using the Advanced Music Software rackase for nearly two 
wears. It contains a Fourier synthesis subroutine for senerating wave 
sharess the NOTRAN (NOte TRANSlator) Comrilery the NOTRAN Interrreters 
and @ demonstration NOTRAN ‘“Score". The SYM-1 version has been 
reorsganizea to eliminate rroblems with rases zero and one read-iny and 
is started with an .E instead a .G,» to initialize the rase zero data. 
Whenever visitors ask about our SYMrs “But what is it dood for?’, they 
are most impressed with SYM’S rendition of "The Star Sransled Banner's 
“Exodus"» the NOTRAN score ands at Christmas timer "Ileck The Halls", 
Qnily the NOTRAN Comriler rortion of the Advanced Music Software rackase 
reauires a terminal, but because the inrut/outrut rortion of the Frogram 
is written as a “patch"s you may write your owns to make use of the hex 
rad and sesment disrlays. 


MUSIC FOR THE SYMPLE SYM 


You can Flay some interesting music om the completely "unimproved" 
SYM-1. The only added “hardware" you will needs and you can “bhorrow" 
that, is 28 “chearie* AM radio tuned to a clear srot on the dials and 
rarked near the SYM. I have 2a radio sitting mear my florry disk syustemy 
and the rhythm effects during @ lons disk-to-disk cory heles to pass the 
time away. Latery you may wish to add a small sreaker or a transistor 
radio tyre earrhone through a one transistor buffer. Use one of the 
four available transistor buffers on the SYM itself. These mas be re- 
wired as desireds and to or from ans I/0 Fine If your cassette recorder 
rermits monitoring during recording: you may use it as your audio outrut 
device. Andy nows ahout softwarereecres 
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MORE ON JACK BROWN’S THREE BASIC ENHANCEMENTS 

Jack Brown is mow using RAE-1 instead of the very sood Microware 
Assembler he adarted from his KIM-1 system. He has also rerlaced his 
Older termininal with a KTM-2/80% and he will be getting a cory of the 
SYM WORD FROCESSOR (SWP-1). 


We are declaring his original articles “out-of-rrint" (we Xeroxed cories 
of the orisinalsy as the orders came ins and could still make additional 
coriesr if reauired)» and replacing them with a second edition. The 
second edition includes 2 16 rage manual, and a cassette dump of the 
source code in RAE formats which is heavilly commented. The full source 
code will reauire .CT. We think that we will also include an 
abbreviated source coder with the original line numbers, but strirred of 
comments and remarks, so that it can be assembled in a single pass on a 
16 K SYM» if possible. The new rackase will be available 1 June 1980, 


We keer careful records on what each individual subscriber buys from the 
User’s Grours so we can send them errata sheets and urdates. To keer 
faith with those who rurchased any of the original three Brown articlesys 
we will consider the second edition to be in the nature of an updates 
and allow full credit for Previous rurchases to be arrlied asainst the 
cost of the second edition. 


HIGH RESOLUTION GRAPHICS 


As you have seen in Kill Gowans’ articles any terminal with cursor 
control can be used as @ ‘rlotter’, with resolution ur to the number of 
cursor positions available. If» in addition, the terminals like either 
the KTM-2 or the KTM-2/80» provides a set of grarPhics symbols, the res- 
olution may be doubled. 


"Self-contained" systems, e.d+s Pet and Arrler do not communicate with 
their built-in CRT screens over a serial data line. Rathery a rortion 
of memory is "marred" onto the screens The memory is treated by the 
6502 as ordinary memory’ the 6502 need not concern itself (no software 
is reauired) with getting the roints on the screen. 


If you wish high resolution drarhicsy like the Arrles’ 280x192y you will 
need an 8 K memory board with video carability. There are @ number of 
such boards available} the one to set derends mainly om the expansion 
bus structurey and system rackase errroach you select, We like MTU’s 
Packase arrroach (it took us over two years to make up our minds!)+* so 
we mow have their 8 K Visible Memory. We have had it less than a weekyr 
and took off 2a few hours from Frreraring this issue to get "Random 
Checkerboard", "Swirl"» and "Life" soins. Note that with its resolution 
of 320x200 it will permit a text diselay of 22 lines of 53 characters, 
This is better than the KTM-2» but I will still want the -2/80 for word 
Frocessind. 


The Visible Memory and a simple QWERTY keyboard can be used together in 
Place of a serial terminal. Software (for KIM-1) is rrovided. Nelson 
Edwards, who Frlayed ~2 large role in designing SUPERMONy has sent me a 
rortion of his SYM version of the MTU softwares to hele us in our 
conversion, The SYM version will be shorter than the KIM version 
because of all of the utility subroutines in SUPERMON! 


Note that Bill Gowans called his graphics with a single Frarameter USR 
functions combining Y and X into one rarameter. The Visible Memory will 
need @ two parameter USR functions since 320 > 255. A far better 
arrroachy however, is to ratch a full set of Graphics Commands to BAS, 
We will be working on this ourselves: and will serve as a ‘clearing 
house" for information on Visible Memory Software, 
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BASIC ANI THE 2K SYMBOLIC ASSEMBLER 

Many SYMmers use BASIC. as their "first language’, and do their text 
rrocessind in BASICy rather than with RAE. For the occasional short 
machine landuase utilities they write to surrort BASIC, the 2KSA is 2 
natural. Here is a rortion of a letter from Bruce Thomesons Arrlied 
Fhyusiesy Cornell University, Ithacas NY 14853, and a cory of the Frosram 
he mentionsy written in 2KSA format. Speaking of 2KSAr we will shortly 
be mailing out an update sheet. 


Enclosed is a short pProsaram called by BASIC’s USR to dump 
or load specific memory iocations, e.3.if you POKE’d a data file into 
some unused memory, you can dump it under pProsram contro]; or you can 
brins in successive data files to be used by BASIC. On load the error 
code is returned. 


Basic USk Module 


LSDATA - To load or save specific memory locations 
under pProsram control. 


Called by X=USR(address,Flas/filerstart,end) 


where address is that of the module 
Flas/file has a zero in the first byte for load 
anything else in the first byte for save 
has the file no. in the second byte 
start is the start address of the data 
end is the address of the last byte of the data 
X will be zero for no error 


47.=o2F no EOF 
255 .=$FF framing error 
204,=%CC checksum error 


For example: K=USR(&"OE00", &"GOFF",&"OCO0" ,&"ODFF") 
will load the next file on the tape into locations 
$0COO to ODFF inclusive and indicate a read error 
by the value of xX, provided the module is located 


at $0E0u. 
Z0868B LSDATA JSR ACCESS 
Aaa TAX set END From CA,YJ] and add i 
cs INY 
BC4AAG STY PARM 
DooL BNE NOBUMP 
ES INX 
BE4BAG6 NOBUMP STX PARM+1 
68 PLA 
8D4CAG STA PARM+2 set START L 
68 PLA 
8D4DAS STA PARM+3 set START H 
68 PLA 
8D4EAG STA PARM+4 set FILE# 
O80 LDY# 80 hish sreed flas 
68 PLA 00=load 
FooSs BEG LOAD 
20878E JSR DUMPT 
9009 BCC ESET 
20788C LOAD JSR LOADT 
a3 tay error code for load in /¥ 
A900 LDA# 00 
Bool Bcs ESET 
AB TAY 
209C6B CSET JSR NACCESS 
4c4acbDi JUMP RETURN 
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4 NOTE FROM IOM GETTYS Bh lal 


INEXPENSIVE I/A CONVERTER 


SEE CORRECTION IN ISSUE #4 
Chir is a 4050. Pin iis +5 V. Fin 8 is Ground. Fins 13 
and 16% N.C. R is 220 Ki r is 27 Ke 
You will need one for musics two for score srarhics. The most 
sisnificant bits section is ortional: but you may want it for 
music arrlications. 


BIT 0 


BRIT 1 


BIT 2 


BIT 3 


BIT 4 


BIT 5 


Least significant bits Most significant bits 


Score and/or 
Audio Amplifier 
4.7 Mes 


A common control structure is the inrlementation of 32 computed 
GOTO or GOSUB. It is not unusual for the flow of control within 
3 rrogram to derend on data entered by @ users as im an editor or 
interactive game Program: or on Periodic sameled inruts such as 
those in real-time control systems, 


Here are two methods of implementing an indexed indirect JMF or 
JSR on 3 6502-hased machine. The first methods called “vectoring's 
is used extensively by the SYM monitor and is one reason the SYM is 
so versatile 3a computer. Three butes are reserved»s with the first 
containing a hex 4C (JMF). After the target address has been com- 
ruted or looked ur it is Flaced in the next 2 bytes of the vector. 


A JMP or JSR to the vector causes control to rass to the selected 
module, 


The second methods howevers is the more effective and concinnate,. 
Let’s surrose we wish to call routine X» and that the address table 
is structured as 2 rows: TEL.LO containing the low-order bytes and 
TRL.HI the high-order bytes. Consider the following routine: 


CALL .X LDA TBL.HI»X ¢GET ADDRESS X» HIGH BYTE 
PHA sAND PUSH IT TO THE STACK 
LDA TBL.LO»X #GET ADDRESS X» LOW BYTE 
FHA sAND PUSH IT TO THE STACK 
RTS 9GO TO ROUTINE X 


By doings a JMP or JSR to CALL.X an indexed indirect JMFP or JSR 
will be effected to the Xth routine. One roint to be observed here 
is that the execution of a RTS instruction rors the stack into the 
Program counters and then increments it. Thus the eddresses in the 
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A TAPE OPERATING SYSTEM FOR SYM 


Box 1» Kensington: Sudneyy Australia 2033, sent us a hrief notey and an 
“unreadable" tare 2a few weeks eso, The tare sounded rather high 
Fitched, I thought. That very same day I received a letter from Manfred 
BRurows Karuzinerstrs 2» [1-8000 Muenchen 2% West Germanys who explained 
how he only got rerfect cassette rerformance by lowering C16 to to 0,022 
wFdy but could mow read cassettes written at 5600 Baud. I tried Frank’s 
Lares adain at 2800 Bauds and they read besutifully! 


The Frogram Frank sent was a "teaser". I wrote for more info and he 
sent a mew cassette. with source coder and some handwritten notes» 
describing his Tare OPerating System. He calls it TOFS» I call it 
TOFSY» because like Torsy in "Uncle Tom’s Cabin“» it seems to have Just 
srown. He has added solenoids to his recorders, for start, story fast 
forward and rewinds under computer control. He formats the tares, they 
contain their own index datar etc., Just like a disk system. The source 
ealls out some external addresses by hex valuesy so I can’t relocate it 
too easily. Will tell sou more sbout it next issue, 


Frank sent slong 2a longs voice recording telling me about his work and 
other interests’ I still owe him 2 rersonal answer. Frank would like to 
hear from other hams om 20 meters. His call is VK2BLF. 


FIX FOR THE BUG IN MOSER’S FADDLE GAME 
Kin-Mingd Kwok» 22 Tums Choi Stes 10th Floors Flat Ary Monskok»s Hons Konsy 
offers the following fix for the bus mentioned in the listins of the same} 


1000 LN = 23 

1260 FRINT CHR$(64) 

1270 NEXT? PRINT CHR$(27)+CHR$(103)5 
1335 AA=USR( 4096413250) 

1770 AA=USR(AAK256)! PRINT CHR$(8)35 


SOFTWARE RECOMMENDATION 


Jeff Holtzman has sent us preview cories of several very useful utility 
packases for SYM-1y both om cassette and in EPROM. We have tested the 
cassette versions (no extra PROM sockets yet!) and have found them vers 
well desidneds indeed, He is offering @ rackese of SUPFERMON Extensions, 
which includes am interactive trace/debug feature, SYM-BUG» and the 


followins new commands: 
CMD PAR.NR DESCRIPTION 


0-2 Memory dumped as ASCII 
0-1 Sets/deletes BRK instruction 

0 Prints user flags as binary 

2 Finds user string (hex and/or ASCII) 

3 Performs 16 bit Boolean algebra - AND, OR, EOR 

0-1 Dumps stack with checksum 

0 Sets/resets line printer driver (see note 1) 

3 Program relocater - adjusts abs- and rel addresses 

0 Enter interactive trace mode 

0-2 Disassembler (see note 2) 

QO User link - does indirect JMP to sys. ram loc. JUMP6 

2 Calculates 16 bit check sum of memory (prints sum only) 
SYM-BUG, and the Command Extensions, are available im object code on 
cassette for $169 and in 2714 EFROM for $50» including a User’s Manual. 
The User’s Manual is available serarately for $4. The fully commented 
source code listing is available for #10. Cassette versions are 
assembled at $0200 or $3800. EPROM version is assembled at $F000,. 
Custom assembly at other locations is am additional $2. Overseas add $2 
for Air Mail Fostase. Please order direct from Jeff Holtzman: 6820 
Nelmar #203 St. Louisy MO 63130. SYM-PHYSIS 7 25 
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MISCELLANEOUS NOTES 

Our HIE» Ince, disk system is working auite wells thank you. Only one 
very minor dbus that we have founds in the warm start of FONUS after re~ 
sets it "“stutters" oncey then continues Frorerly., Lanny Mauder of Ad- 
vanced Computer Froducts, 1310 Edingers Santa Anay CA 92705» has @ cory 
of our SYM/FOUS System Lisky and will shortly have his own SYM~1 
orersting with the HIE Disk System. Incidentally,» Advanced Commuter 
Froduets is the first computer store to sell SYM-FHYSIS over the 
counter. They issue a very informative catalogs if you write for ones 
tell ‘em "SYM-FHYSIS sent me". 


Flans for interfacins the MC 6847/AMI 68047 VIG alehasrarhics chir to 
SYMy at a cost of less than $60, are now available from Marc Aaesenas. 
Flans inelude a schematics wiring check listy rarts lists and driver 
software source code listings. Frice in U.S. Funds is $10.00 in the 
U.S.» $11.00 ain Canadar and $15.00 elsewhere. Send orders to Marc 
Aesenasy 1674 East M-36» Pinckney» Mich.48169* U.S.A. Flease include 2 
mailing label with sour name and address. 


Our SYM mow sreaks to us, through Dave Kemr’s SF-1 Sreech Synthesizer 
Interface to the Texas Instruments’ "“Sresak & Spell” (tm) (see Frage 
1-21). It’s fun to use it with .Vrs to hele verify a longs obJect code 
entry. SYM mow sreaks only "Hex"» but the SF-1 Manual exrleins how to 
extend its vocabulary. If SYM can sreak and Flay musicy surely I should 
be able to teach it to sing! Would any other users of the SF-1 like to 
swear software? 


One of my associatesy "Skir* Frisbees lent me his home-built» General 
Instrunents AY-3-8910 chir based» computer controlleds sound seneration 
system. The farts cost under $507 and it has real rotential for music 
and sound effects creativity. "Skir" promises us some -8910 driver 
software es soon as I return his system to him! 


Here are some tires for beginners only, others may shir? After you have 
added the indiseenseble rower surrlys and the convenient cassette re- 
cordery start reading Lance Leventhal’s *6502 Assembly Language Fro- 
gramming" (see prase 2-27). Next you will want on-board memory 
exransions see rage 3-27 for prices on "sets" of 2114 memory chirs. If» 
after adding a terminal,y your finances are temroraerily strained, and you 
need some low-cost software to exercise your terminals consider either 
Tiny BASTCys or the 2KSA» derending on your srecific interests or 
arrlications. By this times you are no longer 2 besinnery and will then 
want @ither BAS-1 or RAE-1l» or boths and an additional 4K of on-board 
memory: usims the RBlelock board. You might want to add the MTU DAC»? 
described in this issue, even before the terminal, to sive you some 
interfacing exrerience. In the next issue we will describe memory 
expansion arrroaches from which you can selects when you are ready to go 
"all the way". 


Sorry that the mail comes in so fast that we have an ever increasing 
Queue, Have tried to answer all “crisis" mails other letters must wait. 
If you have real rroblems with SYM» feel free to call. We’1ll get your 
eroblem solved» somehow. Had better stor mows so tired I tried to 
insert two florries into the same drive at the same time! 


A TERMINAL TIF 


To put your terminal on "LOCAL"»y if you want to "doodle’ with the KTM-2 


while aim MONy or if you want to Frint date, timers title, remarks etces 
on your TTY» or other printing terminals use Control O. After doodlingy 
or rfrintings return your terminal to "LINE" with another Control O, 
This feature is nmot-too-well explained im section 9.7 of the SYM 
Reference Manual, 
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SHOFFING LIST OF ITEMS AVAILABLE FROM SYM-1 USERS’ GROUF 

All rrices siven below are now obsolete. Flease use rrices 

on the most recent issued "Shorring List". 

CARL MOSER’S SYM WORD PROCESSOR (SWF-1); 
FULLY COMMENTED SOURCE CODE ON CASSETTE. THE MANUAL IS 
ALSO ON CASSETTE» WITH EXAMPLES OF THE USE OF SWF-1. 
AFERIONIC UPDATES AND FULL SUPPORT WILL BE PROVIDED. 
PRICE $35.00» FIRST CLASS/AIR MAIL WORLD WIDE, 


JACK GIERYIC’S "JACK-BUILT PROGRAMS": 
ON CASSETTE? WITH INSTRUCTION SHEET. 
1, DEPTH CHARGE 
2+ OTHELLO 
3, CONCENTRATION 
4. GRAFHICS DEMONSTRATION PACKAGE 
S. PLOT 
6. BAR GRAFH 
PRICE $6,00 FOR ANY ONEy $5.50 EACH FOR ANY ADDITIONAL PROGRAM. 
ALL SIX FOR $30.00» FIRST CLASS/AIR MAIL WORLI! WIDE, 


JACK BROWN’S BASIC ENHANCEMENTS: 
SECOND EDITION, SOURCE CODE ON CASSETTE IN RAE FORMAT» 
WITH SIXTEEN FAGE MANUAL. THE ORIGINAL EDITION, AS DESCRIBED 
IN SYM-FHYSIS ISSUE #2 IS NOW OUT-OF-PRINT. FURCHASERS OF 
THE ORIGINAL EDITION WILL RECEIVE FULL CREDIT TOWARDS THE 
PURCHASE OF THE SECONI! EDITION. 
APERIONIC UPDATES AND FULL SUPPORT WILL BRE PROVIDED, 
PRICE $35,007 FIRST CLASS/AIR MAIL WORLD WIDE, 


MICRO TECHNOLOGY UNLIMITED PRODUCTS (SYM VERSIONS ONLY); 
DAC MUSIC BOARD WITH HARDWARE MANUAL AND BYTE ARTICLE REPRINT. 
CASSETTE WITH OBJECT CODE AND THREE SONGS IS SUPPLIED, 
PRICES» FIRST CLASS/AIRK MAIL $51.00 US/CANADA, $52.00 EUROPE 
$53.00 ASIA/PACIFIC. 
ADVANCED MUSIC SOFTWARE PACKAGE» WITH FULLY COMMENTED 
SOURCE CODE, AND OBJECT CODE ON CASSETTE. 
PRICES, FIRST CLASS/AIR MAIL $21.50 US/CANADA, $22.00 EUROPEs 
$23.00 ASIA/PACIFIC. 
VISIBLE MEMORY SOFTWARE ON CASSETTE WITH SUPPLEMENT TO 
MTU MANUAL AVAILABLE 1 JUNE. PLEASE WRITE FOR PRICES. 


2114 MEMORY CHIFS: 
6 CHIPS (3 K) FOR $33.00 FOR ON BOARD SOCKETS 
8 CHIPS (4 K) FOR $42.00 FOR BLALOCK MEMORY BOARD 
14 CHIPS (7 K) FOR $72.00 FOR BOTH 
OVERSEAS ADI $1.00 FOR FOSTAGE 


SEE ISSUE #2 FOR FRICES ON THE FOLLOWING: 
EXTENDED TINY BASIC FOR SYM-1s PITTMAN 
6502 ASSEMBLY LANGUAGE FROGRAMMINGs LEVENTHAL 
RAE NOTES UPDATING SERVICE 


SEE ISSUE #1 FOR PRICES ON THE FOLLOWING: 
2K SYMBOLIC ASSEMBLER, DENISON 
SYNERTEK TECHNICAL NOTES 


SUFERMON VERSION 2 
RAE-1/2 WRITE OR CALL FOR FRICES ON OTHER 


SYM-1 SCHEMATIC SYM PRODUCTS, SOFTWARE OR HARDWARE. 


BLALOCK ADDRESS CHANGE 


John Blalock’s correct address for the 4 K Memory Exransion Board, and 
the “Double ROM" Adapters is P. O. Box 393546» Fhoenixs Arizona 85069, 
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